home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / AMOSList / AMOSLIST / TextMix.AMOS / TextMix.amosSourceCode
Encoding:
AMOS Source Code  |  1998-02-02  |  995 b   |  43 lines
  1. Dim X(4)
  2. Screen Open 0,320,256,16,0
  3. Screen Hide 0
  4. Hide On : Curs Off : Flash Off 
  5. CHANGE_FONT["Diamond",20,0]
  6. Ink 15,0
  7. Data "This is","just a","little","experiment!"
  8. For A=1 To 4 : Read TXT$
  9.    X(A)=Text Length(TXT$)
  10.    Cls : Text 0,14,TXT$ : Rem This is cheating, I know text Base is 14 
  11.    Get Sprite A,0,0 To X(A),20 : Rem Ditto  
  12. Next : Cls 0
  13. '
  14. 'Here we go then...
  15. '
  16. For A=1 To 4
  17.    X=160-X(A)/2
  18.    MASK=2^(A-1)
  19.    Set Bob A,,MASK,
  20.    Bob A,X,70,A
  21. Next 
  22. Colour 15,$FFF : Pen 15 : Paper 0
  23. Locate 0,20 : Centre "So what is the meaning of this?"
  24. Print : Centre "Press a key and watch carefully!"
  25. Screen Show 0
  26. Wait Key : F=$FFF
  27. Fade 1,0,F,0,F,0,F,0,F,0,F,0,F,0,F,0
  28. Wait 50
  29. Fade 3,0,0,F,F,0,0,F,F,0,0,F,F,0,0,F
  30. Wait 100
  31. Fade 3,0,0,0,0,F,F,F,F,0,0,0,0,F,F,F
  32. Wait 100
  33. Fade 3,0,0,0,0,0,0,0,0,F,F,F,F,F,F,F
  34. Wait 100
  35. Fade 2
  36. Wait 100 : Bob Off 
  37. End 
  38. '
  39. 'The below is a closed MC procedure  
  40. '
  41. Procedure CHANGE_FONT[NAME$,HEIGHT,STYLE]
  42.    ' COMPILED PROCEDURE -- can't convert this to AMOS code
  43. End Proc